
    print TO_ABS "-x fitCurveIndex\n";
    $fitCurve = <FROM_ABS>;
    print TO_ABS "-x selectCurveByIndex -i $fitCurve \n";

# get source name
    print TO_ABS "-x markSelectedCurves\n";
    $curves = <FROM_ABS>;
    print TO_ABS "-x nextMarkedCurve\n";
    $text = <FROM_ABS>;
    chomp $text;
    ($index, $type, $columnName, $junk, $table, $sourceName) = 
      split(' ', $text, 6);


# get parameter            
    print TO_ABS "-x getFormulaParameters\n";
    $p=<FROM_ABS>;
    $p =~ s/fixed/0/g;
    $p =~ s/\+\-//g;
   $a=0; $da=0;$sig=0; $dsig=0;$seff=0; $dseff=0; $delta=0; $ddelta=0; $chi=0;
    ($a, $da) = ($p =~ /a= (\S+) +(\S+)/);
    ($sig, $dsig) = ($p =~ /sig= (\S+) +(\S+)/);
    ($seff, $dseff) = ($p =~ /seff= (\S+) +(\S+)/);
    ($delta, $ddelta) = ($p =~ /delta= (\S+) +(\S+)/);
    ($chi) = ($p =~ /chi= (\S+)/);

open(aFile, '>>/tmp/seff');
    print aFile "$sourceName\t$a\t$da\t$sig\t$dsig\t$seff\t$dseff\t$delta\t$ddelta\t$chi\n";
close aFile;

